﻿Public Class Unit1session2b
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        DropDownList1.Items.Add("Mister")
        DropDownList1.Items.Add("Dr")
        DropDownList1.Items.Add("Mrs")
        DropDownList1.Items.Add("Miss")
    End Sub




    Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim strSubgroup As String = DropDownList1.Text

        Label1.Text = strSubgroup + " " + TextBox1.Text

    End Sub

End Class